home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / t_os / nem / nem.exe / SELBMAIL.PLP < prev    next >
Text File  |  1991-02-24  |  1KB  |  30 lines
  1. /* auto pilot program ｢NEM 2.00｣           1991.2.24   By GOOSE(MAF00070) */
  2. /* %Selbmail { */
  3. /*
  4. **  バイナリメールの送信用データを作成する｡
  5. **  ｢宛先:タイトル::送信ファイルのフルパス名｣(複数ならこれを//で区切って
  6. **  羅列｡
  7. */
  8.   %sel1bm { 
  9.     select({バイナリメールの送信},{600},{temp1:={};im({No})},
  10.       { 送信データの指定 },
  11.         {%temp2 @input({宛先を入力して下さい(複数の場合は｢,｣で区切って下さい)｡});
  12.          case(temp2={},
  13.            {Yes},{im({No})},
  14.            {No},{%temp3 @input({題名(漢字で20文字まで)を入力して下さい｡});
  15.                  case(temp3={},
  16.                    {Yes},{im({No})},
  17.                    {No},{%temp4 @filesel;
  18.                          case(temp4={},
  19.                            {Yes},{im({Yes})},
  20.                            {No},{temp1:=temp1|temp2|{:}|temp3|{::}|@Getcdir2|{\}|temp4|{//};im({Yes})})
  21.                         })
  22.          })
  23.         },
  24.       { 終了 },{temp1:=temp1|{No//};im({No})})
  25.   };
  26.   var temp1[100];temp1:={};
  27.   loop(sel1bm);
  28.   case(temp1={},{Yes},{im({})},{No},{im(temp1)})
  29. /* }; */
  30.